/*
 * Buffered file io for ffmpeg system
 * Copyright (c) 2001 Fabrice Bellard
 *
 * This file is part of FFmpeg.
 *
 * FFmpeg is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * FFmpeg is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with FFmpeg; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 */

#include "libavutil/avstring.h"
#include "avformat.h"
#include <fcntl.h>
#if HAVE_SETMODE
#include <io.h>
#endif
#include <unistd.h>
#include <sys/stat.h>
#include <stdlib.h>
#include "os_support.h"
#include "url.h"
#include "ffmpeg.h"
#include <string.h>

/* standard file protocol */
static int file_read(URLContext *h, unsigned char *buf, int size)
{
//    int fd = (intptr_t) h->priv_data;
    if(videoSize>size){
    	videoSize=videoSize-size;
    }else if(videoSize<=0){
    	return 0;
    }
    else{
    	size=videoSize;
    	videoSize=videoSize-size;
    }
    int i=0;
	for(;i<size;i++)
			buf[i]=myvideo[i];
	myvideo=myvideo+size;
  	return size;

  //  return read(fd, buf, size);
}

static int file_write(URLContext *h, const unsigned char *buf, int size)
{
  /* int fd = (intptr_t) h->priv_data;
    int x=write(fd, buf, size);
   	return x;
*/
    int i=0,frameSize;
    if(isDepth)
    	frameSize=FREENECT_DEPTH_11BIT_SIZE;
    else
    	frameSize=FREENECT_VIDEO_RGB_SIZE;
     if((sizeWritten/frameSize)==((sizeWritten+size)/frameSize)){
 		 if((sizeWritten%frameSize)==0){
 			 for(;i<size-15;i++)
 				 output[i]=buf[i+15];
 			 output=output+size-15;
 			 sizeWritten=sizeWritten+size-15;
 		 }
 		 else{
 			for(;i<size;i++)
 				output[i]=buf[i];
 			 output=output+size;
 			 sizeWritten=sizeWritten+size;
 		}
 	 }
 	 else{
 		 size=(frameSize-(sizeWritten%frameSize));
 		 for(;i<size;i++)
 			 output[i]=buf[i];
 	 	 output=output+size;
 	 	 sizeWritten=sizeWritten+size;
 	   }
   	 	 return size;

}


static int file_get_handle(URLContext *h)
{
 return (intptr_t) h->priv_data;
}

#if CONFIG_FILE_PROTOCOL

static int file_open(URLContext *h, const char *filename, int flags)
{
    int access;
    int fd;

/*    av_strstart(filename, "file:", &filename);

    if (flags & AVIO_RDWR) {
        access = O_CREAT | O_TRUNC | O_RDWR;
    } else if (flags & AVIO_WRONLY) {
        access = O_CREAT | O_TRUNC | O_WRONLY;
    } else {
        access = O_RDONLY;
    }
#ifdef O_BINARY
    access |= O_BINARY;
#endif
*/

    int result= strncmp(filename, "try.m2v", 3);
//    fd = open(filename, access, 0666);
//   	 if (fd == -1)
// 		 return AVERROR(errno);

   	 h->priv_data = (void *) (intptr_t) fd;
	if(result==0){	
    	startPtr=myvideo;
    	startSize=videoSize;
		sizeWritten=0;
	}

	return 0;
}

/* XXX: use llseek */
static int64_t file_seek(URLContext *h, int64_t pos, int whence)
{
	int fd = (intptr_t) h->priv_data;
    int result= strncmp(h->filename, "try.m2v", 3);
    if (whence == AVSEEK_SIZE) {
	        if(result==0){
			struct stat st;
 //   	    int ret = fstat(fd, &st);
			return startSize;
  //      	return ret < 0 ? AVERROR(errno) : st.st_size;
        }
        else{
        	int64_t file_size=videoSize;
           	return file_size;
        }
    }

/*    int myfd= open("seek_IT", O_APPEND|O_CREAT|O_WRONLY, 0666);
    char temp[15]="";
    snprintf(temp,6,"%lld_%d*",pos,whence);
    write(myfd, temp,15);
     close(myfd);
*/
/*    if(whence==SEEK_SET){
		myvideo=startPtr+pos;
		videoSize=startSize-pos;
    }
    else if(whence==SEEK_CUR) {
    	myvideo=myvideo+pos;
    	videoSize=videoSize-pos;
    }
    else{
    	int myfd= open("seek_IT1", O_APPEND|O_CREAT|O_WRONLY, 0666);
   	    char temp[15]="";
   	    snprintf(temp,6,"%lld||%d*",pos,whence);
   	    write(myfd, temp,15);
   	    close(myfd);
   	}
   	*/
    if(result==0 && whence== SEEK_SET){
    	myvideo=startPtr+pos+whence;
		videoSize=startSize-pos;
    }

//   return lseek(fd, pos, whence);
  	 return pos;
}

static int file_close(URLContext *h)
{
 //   int fd = (intptr_t) h->priv_data;
 //   return close(fd);
	return 0;
}

static int file_check(URLContext *h, int mask)
{
    int myfd= open("chck_IT", O_TRUNC |O_CREAT|O_WRONLY, 0666);
    char temp[15]="";
    snprintf(temp,6,"%d_",mask);
    write(myfd, temp,15);
     close(myfd);
   struct stat st;
    int ret = stat(h->filename, &st);
    if (ret < 0)
        return AVERROR(errno);

    ret |= st.st_mode&S_IRUSR ? mask&AVIO_RDONLY : 0;
    ret |= st.st_mode&S_IWUSR ? mask&AVIO_WRONLY : 0;
    ret |= st.st_mode&S_IWUSR && st.st_mode&S_IRUSR ? mask&AVIO_RDWR : 0;


    return ret;

//	return 0;
}

URLProtocol ff_file_protocol = {
    .name                = "file",
    .url_open            = file_open,
    .url_read            = file_read,
    .url_write           = file_write,
    .url_seek            = file_seek,
    .url_close           = file_close,
    .url_get_file_handle = file_get_handle,
    .url_check           = file_check,
};

#endif /* CONFIG_FILE_PROTOCOL */

#if CONFIG_PIPE_PROTOCOL

static int pipe_open(URLContext *h, const char *filename, int flags)
{
    int fd;
    char *final;
    av_strstart(filename, "pipe:", &filename);

    fd = strtol(filename, &final, 10);
    if((filename == final) || *final ) {/* No digits found, or something like 10ab */
        if (flags & AVIO_WRONLY) {
            fd = 1;
        } else {
            fd = 0;
        }
    }
#if HAVE_SETMODE
    setmode(fd, O_BINARY);
#endif
    h->priv_data = (void *) (intptr_t) fd;
    h->is_streamed = 1;
    return 0;
}

URLProtocol ff_pipe_protocol = {
    .name                = "pipe",
    .url_open            = pipe_open,
    .url_read            = file_read,
    .url_write           = file_write,
    .url_get_file_handle = file_get_handle,
    .url_check           = file_check,
};

#endif /* CONFIG_PIPE_PROTOCOL */
